home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / database / sch110a.arj / DMMEMOF.PRG < prev    next >
Text File  |  1993-02-23  |  419b  |  19 lines
  1. *****
  2. * The UDF() function that controls the sample text editor
  3. *****
  4. function dmmemof
  5.  
  6. *****
  7. * Remember, CUSTOM passes MVPARM1, MVPARM2 and MVPARM3
  8. *****
  9. mvudf_val=0
  10. mvstroke=lastkey()
  11. setcursor(.f.)
  12. if mvparm1=0
  13.     say(24,45," [Line: "+trim(str(mvparm2,iif(mvparm2<100,2,3),0))+"] ")
  14.     say(24,57," [Column: "+trim(str(mvparm3,2,0))+"] ")
  15.     mvudf_val=32
  16. endif
  17. setcursor(.t.)
  18. return mvudf_val
  19.